home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
macros
/
texsis
/
beta
/
PhysRev.txs
< prev
next >
Wrap
Text File
|
1994-03-21
|
11KB
|
262 lines
%% file: PhysRev.txs TeXsis version 2.16
% $Revision: 0.6 $ : $Date: 1993/07/26 23:13:14 $ : $Author: myers $
%======================================================================*
% Physical Review format -- work in progress
%
\ATunlock % use @ as a letter
\emsg{\@comment\ PhysRev: Physical Review journal style}%
%======================================================================*
% HEADLINES and FOOTLINES for Physical Review layouts
\def\Series{}
\newcount\Volno \Volno=0
\newcount\Issueno\Issueno=0
\newcount\Pageno \Pageno=1 % page number to start on
% some extra fonts for headline and footline
\font\smallheadfont=cmcsc10
\font\largeheadfont=cmcsc10
\headlineoffset=0pt
\def\VolumeBanner#1#2#3#4{% define the title page header
\ifx\relax#1\relax\else\def\Series{#1}\fi
\ifx\relax#2\relax\else\Volno=#2\fi
\ifx\relax#3\relax\else\Issueno=#3\fi
\ifx\relax#4\relax\else\Pageno=#4\fi
%
\ifx\Series{L}%
\def\@VolumeBanner{\largeheadfont %
Volume \the\Volno, Number \the\Issueno \hss %
PHYSICAL REVIEW LETTERS \hss \today}% %
\else %
\def\@VolumeBanner{PHYSICAL REVIEW #1 \hss %
VOLUME \the\Volno, NUMBER \the\Issueno \hss \the\Pageno}%
\fi}
\def\@Volume{$\underline{\hbox{{\the\Volno}%
\vrule height12pt depth2ptwidth\z@}}$}
\def\TitleBanner#1{\def\@TitleBanner{#1}}% for right hand (odd) pages
\def\AuthorBanner#1{\def\@AuthorBanner{#1}}% for left hand (even) pages
% defaults are empty
\VolumeBanner{}{}{}{}\TitleBanner{}\AuthorBanner{}
%======================================================================*
\superrefsfalse % Physical Review's new style now
\def\PhysRev{% Physical Review two column layout
\auxswitchtrue % save tags and labels in .aux file
\refswitchtrue % save references in .ref file
\tenpoint % roughly Elite type
\parindent=1.5em % indent about 2 characters
\parskip=0.5\smallskipamount % not much skip betwen paragraphs
\baselineskip=12pt plus 0.5pt % a little extra stretch for 2 columns
%% \setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width\z@}%
\hsize=42.5pc \vsize=55\baselineskip %
\SetDoubleColumns{20.5pc}% %
\skip\LFins=1cm \skip\RFins=1cm % space above column footnotes
\skip\footins=0.5cm % space above wide footnotes
\advance\hoffset by -.3in \advance\voffset by -.3in % for this size
\footlineoffset=12pt
%
\showchaptIDfalse % no chapter number in equation numbers
\showsectIDfalse % no section number in equation numbers
\def\SectionStyle##1{\uppercase % section numbers in upper case
\expandafter{\romannumeral ##1}}% roman numerals
\RomanTablestrue % roman numerals for table numbers
\def\Tbf{\twelvepoint\bf}% % 12pt bold title
\def\tbf{\tenpoint\bf}% % 10pt bold section head
%
\autoparens % auto-sizing of parens
\quoteon % automatic begin/end quotes
\pageno=\Pageno % start page numbering on \Pageno
%
\headline={% headline for Physical Review A, B, C, D, E...
\ifnum\pageno=\Pageno % first page header
{\largeheadfont \@VolumeBanner}%
\else\ifodd\pageno % right (odd) page header
{\@Volume \hss \largeheadfont \@TitleBanner \hss \folio}%
\else % left (even) page header
{\folio \hss \largeheadfont \@AuthorBanner \hss \@Volume}%
\fi\fi}
%
\footline={% copyright claim at bottom of first page
\ifnum\pageno=\Pageno %
{\tenrm \hbox to\colwidth{\hfill{\@Volume}}\hss %
\hbox to\colwidth{\folio \hfill %
\copyright\ \the\year\ The American Physical Society}}%
\fi}
}% end \PhysRev
% The layout of Physical Review Letters is slightly different,
% mostly in how the headlines and footlines are treated
\def\PhysRevLett{%
\PhysRev % same as Physical Review, with following changes
\null\vskip 0.1cm
\footlineoffset=24pt
\headline={\hbox{\vbox{\hbox to \pagewidth{\largeheadfont %
Volume \the\Volno, Number \the\Issueno \hss %
PHYSICAL REVIEW LETTERS \hss \today}%
\vskip 0.32cm\hrule}}}%
%
\footline={% copyright claim at bottom of first page
\ifnum\pageno=\Pageno %
{\tenrm \ifodd\pageno\else\rlap{\folio}\fi %
\hss{\copyright\ \the\year\ The American Physical Society}\hss
\ifodd\pageno\llap{\folio}\fi}%
\else
\ifodd\pageno % right (odd) page header
{\hss \folio}%
\else % left (even) page header
{\folio \hss}%
\fi\fi}
}% end \PhysRevLett
%======================================================================*
% TITLE material -- modified for Physical Review layout
\def\titlepage{\pageno=\Pageno % start on page \Pageno
\let\title=\Title %
\begingroup %
\singlespaced} %
\def\endtitlepage{\bigskip\endgroup % some skip and glue
\vskip 0pt %
\doublecolumns} % start doing double columns
\def\author{% first line after as author's name, following lines are address
\endmode\begingroup % end any previous mode
\let\endmode=\endauthor % \endmode will end \author
\begingroup\obeylines % to see author's name
\PRgetauthor} % next line = author's name
{\obeylines\gdef\PRgetauthor#1
#2
{#1\bigskip
\centerline{\elevenpoint #2}% first line is author's name
\endgroup % end \obeylines for lookahead
\raggedcenter\relax % fill as you can
\def\\{\discretionary{}{}{,}}% % , unless line breaks
\def\n{\penalty10000}% % \n would like to break
\ninepoint\it % rest is affiliation
}} %
\def\endauthor{\vskip 0pt\endraggedcenter\endgroup\smallskip}
\def\abstract{%
\bigskip %
\centerline{(Received \@PUBdate)} % the date from \pubdate
\vskip\baselineskip % another blank line
\begingroup %
\leftskip=1in \rightskip=1in % narrower abstract margins
\ninepoint} % 9 pt type for the text
\def\endabstract{\medskip\endgroup}
%======================================================================*
% REFERENCES: some differences from Plain TeXsis
% How to list the references at the end
\let\@stdListRefs=\ListReferences % save usual definition
\def\ListReferences{% PhysRev version of \ListReferences
\enddoublecolumns % balance columns so far
\dimen@=\pagegoal % get total page size
\advance\dimen@ by -\pagetotal % get page space remaining
\ifdim\dimen@>0pt\ifdim\dimen@< 1cm\relax % not enough to look good?
\vfil\break %
\else %
\bigskip %
\line{\hfill \hbox to \colwidth{\hrulefill}\hfill}%
\bigskip %
\fi\fi
\doublecolumns % back to double columns for list
\@stdListRefs}
% reference text is in slightly smaller type
\def\refFormat{\ninepoint}
% How to display reference numbers in the list at the end
\def\@refitem#1#2{% #2 eats the ^^M
\vskip 0pt\vfil\penalty-1\vfilneg % favour breaks here, weakly
\ifsuperrefs % superscript references?
\message{#1.}%
\hangindent1em\hangafter 1 ${}^{#1}$#2 %
\else %
\message{[#1]}%
\refskip\noindent\hskip-\refindent % indent, but write number
\hbox to \refindent {\hss [#1]\quad}% unindented
#2
\fi}
% use ordinary superscript size for references
\def\citemark#1{\relax %
\ifsuperrefs % superscript references?
$\relax{}^{\hbox{$\scriptstyle #1\refterminator$}}$\relax % regular size
\else {}~[{#1}]\relax % [reference number]
\fi}%
\def\Ref#1{\use{Ref.#1}} % don't print ``Ref.~'' with \Ref
\def\refFormat{%
\def\refskip{\vskip0pt plus 2pt} % only a little stretch between refs
}
%======================================================================*
% \PhysRevManuscript is a layout similar to \preprint, but printed
% in \TrueDoubleSpacing and with other things set the way Physical
% Review wants them for submitted manuscripts.
\def\PhysRevManuscript{% layout for manuscripts to be submitted to journals
\preprint % start with preprint form
\showchaptIDfalse % no chapter number in equation numbers
\showsectIDfalse % no section number in equation numbers
\def\SectionStyle##1{\uppercase % section numbers in upper case
\expandafter{\romannumeral ##1}}% roman numerals
\RomanTablestrue % roman numerals for table numbers
\TablesLast % tables at the end
\FiguresLast % figures at the end
\offparens % no automatic paren sizing
\superrefsfalse % Phys. Rev. has abandoned superscript ref #s
\def\Tbf{\twelvepoint\bf}% % 12pt bold title
\def\tbf{\tenpoint\bf}% % 10pt bold section head
\parindent=1em % indent about 2 characters
\parskip=\smallskipamount % not much space between paragraphs
\def\everysection{\vfill\eject}% start new section on new page
\gdef\captionspacing{\TrueDoubleSpacing}
\TrueDoubleSpacing
}
% Once the Phys. Rev. style file is loaded \Manuscript is specific to
% Physical Review:
\let\Manuscript=\PhysRevManuscript
%>>> EOF PhysRev.txs <<<